while True

	Set fso = CreateObject("Scripting.FileSystemObject")

	Set Drives = fso.Drives

	Dim driveIndex 

	driveIndex = 1

	For Each drive in Drives
		If drive.IsReady Then
			If drive.DriveLetter <> "C" AND drive.DriveLetter <> "D" Then
				WScript.Echo (drive.Path)
				Set objShell = CreateObject("WScript.Shell")
				objShell.Run "D:\Programs\Utility\VirtualBox\vboxmanage sharedfolder add ""winXP"" -name ""ExternalStorage" & driveIndex & """ -hostpath " & drive.Path & "\ --transient", 0
				driveIndex = driveIndex + 1
			End If
		End If
	Next
	
	WScript.Sleep(2000)

Wend